home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 14 / Tiger_Disk_014_19xx_Tiger-Crew-Disk_de_Side_A.d64 / color scroller (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  550b  |  16 lines
  1. 10 a$="basic-color-scroller written in 26.8.1994 by madrom!"
  2. 15 :
  3. 20 rem *** initialisieren
  4. 25 printchr$(147):poke53281,.:poke53280,.:c=.:fori=41960to41967
  5. 30 poke820+c,peek(i):c=c+1:next:poke824,200:poke827,96:forc=.to6:reada(c):next
  6. 40 :
  7. 45 rem *** scroll-main-routine
  8. 50 d=len(a$):a=1:e=199:g=1
  9. 55 e=e-1:poke53270,e:poke55335,a(f):poke90,1:poke91,216:poke88,.:poke89,216
  10. 60 poke782,.:sys820:f=f+1:on-(e<>192)goto55:e=199:f=.:poke90,1:poke91,4:poke88,.
  11. 70 poke89,4:poke782,.:poke53265,.:poke53270,e:sys820:poke53265,27:poke781,.
  12. 75 poke782,39:sys58636:printmid$(a$,a,1):a=a+1:on-(a-3<>d)goto55:a=1:goto50
  13. 85 :
  14. 90 rem *** 7 farben
  15. 95 data 6,4,14,3,7,15,11
  16.